#!/usr/bin/perl
#
# Checkoutpage - write a Web page for looking up people with certain
# properties.
#
# Input format: Tab-style list - expect index in field 1, display rest
# of fields in a table.
use CounterCGI;

$date = localtime();
print <<EoF;
<html>
EoF

CounterCGI::pagehead("Table of some Linux Counter entries");
print "<body bgcolor=\"white\">\n";
#CounterCGI::pagetop();

print <<EoF;
<h1><img src="/gifs/Logo-small.png" alt="Linux Counter Logo">
Table of some Linux Counter entries</h1>
Generated at $date
<table border=4>
EoF
while (<>) {
    @fields = split("\t");
    print "<tr>";
    $id = shift(@fields);
    print "<td><a href=\"/cgi-bin/adm/display-person.cgi?user=$id\">$id</a></td>";
    for $field (@fields){
        $field =~ s/@/&#x40;/g;
	print "<td>$field</td>";
    }
    print "</tr>\n";
}
print <<EoF;
</table>
<hr>
Contact: <a href="mailto:webmaster&#x40;counter.li.org">Webmaster&#x40;counter.li.org</a>
</body>
</html>
EoF
